home *** CD-ROM | disk | FTP | other *** search
/ Internet.Works 40 / Issue 40.iso / pc / MacUtilities / 00103_Tool18.ls < prev    next >
Encoding:
Text File  |  2000-10-18  |  915 b   |  33 lines
  1. on mouseWithin
  2.   if sprite(the currentSpriteNum).foreColor = 70 then
  3.     sprite(the currentSpriteNum).foreColor = 70
  4.     member("Title18").foreColor = 0
  5.     put EMPTY into member "Infofield"
  6.   else
  7.     if sprite(the currentSpriteNum).foreColor <> 70 then
  8.       cursor(280)
  9.       sprite(the currentSpriteNum).foreColor = 255
  10.       member("Title18").foreColor = 0
  11.       put "Click for further information about, or to install, Internet Explorer v5.5" into member "Infofield"
  12.     end if
  13.   end if
  14. end
  15.  
  16. on mouseLeave
  17.   cursor(0)
  18.   if sprite(the currentSpriteNum).foreColor = 70 then
  19.     sprite(the currentSpriteNum).foreColor = 70
  20.     member("Title18").foreColor = 0
  21.   else
  22.     if sprite(the currentSpriteNum).foreColor <> 70 then
  23.       sprite(the currentSpriteNum).foreColor = 246
  24.       member("Title18").foreColor = 255
  25.       put EMPTY into member "Infofield"
  26.     end if
  27.   end if
  28. end
  29.  
  30. on mouseDown
  31.   go("Title18")
  32. end
  33.